(mail-send): Don't test buffer-modified-p if buffer is visiting a file.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 8c1bd7e644ea075dfd65cbc353adb218238eaf4e..fbe5064ee41a15868323f516d64c19569010ec61 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -300,8 +300,10 @@ or error messages, and inform user.
 Otherwise any failure is reported in a message back to
 the user from the mailer."
   (interactive)
-  (if (or (buffer-modified-p)
-          (y-or-n-p "Message already sent; resend? "))
+  (if (if buffer-file-name
+         (y-or-n-p "Send buffer contents as mail message? ")
+       (or (buffer-modified-p)
+           (y-or-n-p "Message already sent; resend? ")))
       (progn
        (message "Sending...")
        (run-hooks 'mail-send-hook)